home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / ddbbs101.lha / Doors / Rexxdir / LogOff.dd < prev    next >
Encoding:
Text File  |  1995-02-18  |  3.3 KB  |  2 lines
  1. /* Optimized with RexxOpt 1.7 */
  2. PARSE ARG NODE;OPTIONS RESULTS;nodeid="DREAMREXX"node;address value nodeid;TR=TRANSMIT;signal on error;signal on ioerr;signal on syntax;if ~exists("ENV:DreamUtils") then call ENDO;call open(DU,"ENV:DreamUtils",'R');do;DreUti=ReadLn(DU);end;call Close(DU);if ~exists(''DreUti'logoff.Config') then call make;confikki:;call open(CFG,''DreUti'logoff.Config','R');do;ranban=STRIP(readln(CFG));end;call Close(CFG);SYSTEMINFO 3;argus=result;if argus='Y'|argus='y' then call bye;StART:;TR " ";tr "               :   .                                      .";tr "              ·+:--+-------------------------------------:+·";newline;tr "               |__     ____    _____  ____    ____________|___";tr "  __/\__ _____ /  |   /    \  /   _/ /    \  /  ___  /  ___  /___ __/\__";tr "  \    //    //   |__/  |   \/   | \/  |   \/   __/\/   __/\//   \\    /";tr "  /_  _\\___//    |  \  |   /    |  \  |   /    |  /    | | /____//_  _\";tr "    \/       \______  \____/\______  \____/\____|  \____| |         \/";tr "               |  |___/          |___/                    |";tr "               |                                          :";tr "               :         [Y]ES   (N)O   (R)ELOGIN         +";tr "                                                          |";tr "               |        (P)AGE  (C)OMMENT TO SYSOP        |";tr "               |                                          |";tr "               +               (G)REETINGS                |";tr "               :                                          |";tr "               |                                          :";tr "               `----------------=[!CHOSE!]=---------------'";send "                                  :>";getchar;answer=result;IF answer=' ' THEN call BYE;IF answer='y'|answer='Y'|answer='' THEN call BYE;IF answer='n'|answer='N' THEN call BACK;IF answer='c'|answer='C' THEN call COMMENT;IF answer='r'|answer='R' THEN call RELOG;IF answer='p'|answer='P' THEN call PAGE;IF answer='g'|answer='G' THEN call GREETS;call StART;BACK:;do;newline;newline;SHUTDOWN;EXIT;END;GREETS:;do;newline;newline;tr "        ...Greetings from /)arkElf & b0Lt goes to all DD-USERS!!...";newline;prompt 0 normal "(Pause)...Return to Resume: ";CALL StART;END;RELOG:;RELOGIN;PAGE:;do;DDCOMMAND "O";CALL StART;END;COMMENT:;do;DDCOMMAND "E "SYSOP"";CALL StART;END;BYE:;sendfile 'LogOff'||RANDOM(1,ranban,Time('s'));newline;newline;tr 'Closing connection...';HANGUP;ERROR:;IOERR:;SYNTAX:;ENDO:;SHUTDOWN;EXIT;MAKE:;do;address command 'echo > 'DreUti'logoff.Config';call open file,''DreUti'logoff.Config','W';call writeln file,"1";call writeln file,";Number of randomly sent logoff texts!!";call close file;call confikki;end